www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/Tie_list.asp

    

<div align="center">
	<table cellpadding="0" cellspacing="0" width="366" height="235">
		<tr>
			<td height="33" background="Ku_img/pq_001.jpg">
			<div align="center">
				<table cellpadding="0" cellspacing="0" width="366">
					<!-- MSTableType="nolayout" -->
					<tr>
						<td height="12" width="89">
						<p align="center"><font color="#FFFFFF"><b>圈子话题</b></font></td>
						<td height="12">&nbsp;</td>
						<td height="12" width="54"><a href="Gu_Quan.asp"><img border="0" src="pkxx-Img/more.jpg"></a>&nbsp;</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
		<tr>
			<td height="198" background="Ku_img/pq_002.jpg" valign="top">
			<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
    set rstie=server.createobject("adodb.recordset")
    sqltie="select top 8 * from Quan_ht order by id desc"
    rstie.open sqltie,conn,1,1
    
    if Rstie.eof or Rstie.bof then
    response.write"<div align='center'>暂无相关圈子话题<div>"
    end if 
    do while not rstie.eof
    tiename = rstie("title")
    

%>
<tr> 



<td width="260" height = 25>
<img border="0" src="pkxx-Img/xx-16-16.png" width="16" height="16">
<a href="Gu_showtie.asp?guxing=<%=rstie("id")%>" title="标题：<%=tiename%>&#13&#10时间：<%=rstie("addtime")%>&#13&#10点击：<%=rstie("hits")%>次">
<font color="<%=rs("yanse")%>">
<% 
    if Getlen(tiename)>28 then
    response.write LeftStr(tiename,26)
    response.write "..."
    else
    response.write ""&tiename&""
    end if
   
%>
</font>
</a>
<img border="0" src="pkxx-Img/new02.gif" width="31" height="15">
</td><td><font color="#C0C0C0">[<%=DateTimeFormat(rstie("addtime"),3)%>]</font></td>

</tr>
<% 
    rstie.movenext  
    loop
    Rstie.Close
    Set Rstie=Nothing
%>
</table>

			</td>
		</tr>
		<tr>
			<td height="4">
			<img border="0" src="Ku_img/pq_003.jpg" width="366" height="4"></td>
		</tr>
	</table>
</div>